#############
#Written By : Ronny Bull (aka Cubber)
#Quest Name: #summonitem proxy
#Quest Zone: Cshome
#Quest NPC: Krakskull
#################
sub EVENT_SAY
{
	if($text=~/Hail/i)
      		{
			quest::say("Hello there $name! I have been gifted with the ability to summon any item or spell in this world, however I will require a small donation of platinum for my services, are you [interested]?");  

		}
	elsif($text=~/interested/i)
		{
			quest::say("In order for me to summon anything for you I need to know it's ID number.  Please use the command: #itemsearch ITEMNAME , and then say to me the number next to the item you desire.  After you have told me the item number I will give you further instructions.");
		}
		
	elsif($text=~/correct/i)
		{
			quest::say("Please hand me your donation of 500 platinum pieces and I will summon item ID ** $item ** for you.");
			quest::me("*** WARNING! *** Please verify your item ID number before turning in your platinum, there are no refunds!");

		}

	elsif($text=~/\d{0,9}/)
		{
			$item = $text;
			quest::say("You have asked for me to summon item ID ** $item ** for you, is this [correct]?");
		}
}

sub EVENT_ITEM
{
	if($platinum ==500)
		{	
			
			if ($text=~/\d{0,9}/)
				{
					quest::emote("Krakskull begins to chant...");
					quest::summonitem("$item");      	
					quest::emote("The item you seek apears before your eyes!");
				}

		}
}	
